Imports ccapps.persistent.smeTariffUpdate
Imports ccapps.persistent.batchJobRequest
Imports ccapps.persistent.common
Imports System.Threading
Imports System.Timers.ElapsedEventArgs

Public Class sms_tariff2
    Public errstr As String = ""
    Public sqlStr As String
    Public listener As String
    Public i, k As Integer
    Dim Timer1 As New System.Timers.Timer
    Dim Timer2 As New System.Timers.Timer
    Dim t1 As Thread
    Dim t2 As Thread
    Sub start()

        t1 = New Thread(AddressOf Tariff_Update)
        t1.IsBackground = True
        t1.Priority = System.Threading.ThreadPriority.Highest
        t1.Start()

    End Sub

    Private Sub Tariff_Update()
        Dim job As New ccapps.batchjobs.sms_update1
        job.Tariff_Update2()
    End Sub


End Class
